100 SN=2716:SL=2736:DN=2739:DL=2759
110 PRINT"[147]"SPC(12)"CODE CONVERSION"
120 PRINT"PLEASE INPUT SOURCE PROGRAM'S DISK NAME:":INPUT SN$
130 IF LEN(SN$)>16 THEN PRINT"THAT NAME IS TOO LONG...":GOTO120
140 SN$=SN$+",S,R"
150 FOR I=0 TO LEN(SN$)-1:POKE SN+I,ASC(MID$(SN$,I+1,1)):NEXT
160 PRINT"PLEASE INPUT DESTINATION PROGRAM'S NAME":INPUT DN$
170 IF LEN(DN$)>16 THEN PRINT"THAT NAME IS TOO LONG...":GOTO160
180 DN$=DN$+",P,W"
190 FOR I=0 TO LEN(DN$)-1:POKE DN+I,ASC(MID$(DN$,I+1,1)):NEXT
200 POKE SL,LEN(SN$)+2:POKE DL,LEN(DN$)+2:SYS 2501